home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / trnsprtr.dir / 00503_pda out frame script.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  9.3 KB  |  223 lines
  1. on exitFrame
  2.   global gPDACategory, gRegLoc, gVR.Active, gPDAHelp, gPDASearch, gPDAVR, gPDAQT, gPDAPict, gPDASnd, gPDAInternet, gPDAText, gNotUpdated, gLastPDAButtonRoll, gPC, gFirstQT, gPDASlideShow, gPDASlideShowTimer, gStartVR, gPictNum, gPictStart, gPictEnd, gRegionName, theFileDel, gPanoFilename, gQTVRLocation, gVRExtra
  3.   if gRegionName = "PL" then
  4.     set the castNum of sprite 13 to the number of member "Copyright"
  5.     set the visible of sprite 13 to 1
  6.     updateStage()
  7.   else
  8.     set the visible of sprite 13 to 0
  9.   end if
  10.   if gVR.Active then
  11.     if not gPC then
  12.       if rollOver(46) then
  13.         checkVRMac()
  14.       end if
  15.     end if
  16.     if rollOver(48) then
  17.       checkVR()
  18.     end if
  19.     runPano()
  20.     set the loc of sprite 14 to point(224, 134)
  21.   else
  22.     cursor(-1)
  23.     if not gPDAVR then
  24.       set the loc of sprite 14 to point(-224, -134)
  25.     end if
  26.   end if
  27.   updateStage()
  28.   repeat with i in [10, 11, 14, 26, 27, 28, 29, 30, 31, 32, 33, 34, 46, 47]
  29.     puppetSprite(i, 1)
  30.   end repeat
  31.   if gPDAPict = 1 then
  32.     set the castNum of sprite 47 to the number of member "pict counter"
  33.     set the loc of sprite 47 to point(483, 356)
  34.     if gPDASlideShow then
  35.       if the ticks > (gPDASlideShowTimer + 120) then
  36.         if gPictNum < gPictEnd then
  37.           set gPictNum to gPictNum + 1
  38.         else
  39.           set gPictNum to gPictStart
  40.         end if
  41.         set the text of field "pict counter" to gPictNum - gPictStart + 1 & " of " & gPictEnd - gPictStart + 1
  42.         set the castNum of sprite 46 to gPictNum
  43.         set gPDASlideShowTimer to the ticks
  44.       end if
  45.     end if
  46.   else
  47.     if not (gPDAHelp or gPDAText) then
  48.       set the loc of sprite 47 to point(-622, -633)
  49.     end if
  50.   end if
  51.   updateStage()
  52.   if soundBusy(2) then
  53.     set gPDASnd to 1
  54.   else
  55.     set gPDASnd to 0
  56.   end if
  57.   set ChannelRollList to [10, 11, 20, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 42]
  58.   set ChannelTextList to ["Return to Transporter", "Replay Intro Slide Show", "Search Entry Field", "Talkin' Texan", "Passport Help", "Regional Keyword Search", "Virtual Reality Panoramas", "Regional Video", "Picture Slide Show", "Category Audio", "Location Information Text", "Turn Off Passport", "Play/Pause", "Rewind", "Fast Forward", "Passport Mode Display", "Location List", "Pull Down Category Menu"]
  59.   repeat with i in ChannelRollList
  60.     set ButtonRoll to 0
  61.     if rollOver(i) then
  62.       set RollIndex to getPos(ChannelRollList, i)
  63.       if (RollIndex > 0) and (RollIndex <= count(ChannelTextList)) then
  64.         set ChannelText to getAt(ChannelTextList, RollIndex)
  65.         set the text of cast "PDA region info" to ChannelText
  66.         set startLine to (RollIndex * 3) + 1
  67.         put line startLine of field "Region Help Rollover Text" & RETURN & line startLine + 1 of field "Region Help Rollover Text" into field "Region Help Text"
  68.       end if
  69.       if i <> gLastPDAButtonRoll then
  70.         if not soundBusy(3) then
  71.           puppetSound(3, "bleep")
  72.         end if
  73.         updateStage()
  74.       end if
  75.       set ButtonRoll to 1
  76.       set gLastPDAButtonRoll to i
  77.       exit repeat
  78.     end if
  79.   end repeat
  80.   if ButtonRoll = 0 then
  81.     set the text of cast "PDA region info" to "Rollover an Area for Help"
  82.     put line 1 to 2 of field "Region Help Rollover Text" into field "Region Help Text"
  83.     set gLastPDAButtonRoll to 0
  84.   end if
  85.   set FirstButton to 282
  86.   set the castNum of sprite 10 to (rollOver(10) * 10) + 200
  87.   set the castNum of sprite 11 to (rollOver(11) * 1) + 605
  88.   set the castNum of sprite 26 to (rollOver(26) * 10) + FirstButton
  89.   if not gPDAHelp then
  90.     set the castNum of sprite 27 to (rollOver(27) * 10) + FirstButton + 1
  91.   end if
  92.   if not gPDASearch then
  93.     set the castNum of sprite 28 to (rollOver(28) * 10) + FirstButton + 2
  94.   end if
  95.   if not gPDAVR then
  96.     set the castNum of sprite 29 to (rollOver(29) * 10) + FirstButton + 3
  97.   end if
  98.   if not gPDAQT then
  99.     set the castNum of sprite 30 to (rollOver(30) * 10) + FirstButton + 4
  100.   end if
  101.   if not gPDAPict then
  102.     set the castNum of sprite 31 to (rollOver(31) * 10) + FirstButton + 5
  103.   end if
  104.   if not gPDAText then
  105.     set the castNum of sprite 33 to (rollOver(33) * 10) + FirstButton + 7
  106.   end if
  107.   set the castNum of sprite 34 to (rollOver(34) * 10) + FirstButton + 8
  108.   if gPDASnd then
  109.     if (the clickOn = 26) or (the clickOn = 32) then
  110.       set the castNum of sprite 32 to 308
  111.     end if
  112.   else
  113.     if not (gPDASnd or soundBusy(2)) then
  114.       set the castNum of sprite 32 to (rollOver(32) * 10) + FirstButton + 6
  115.     end if
  116.   end if
  117.   updateStage()
  118.   if the type of member the castNum of sprite 48 = #digitalVideo then
  119.     if the movieRate of sprite 48 = 1 then
  120.       set the castNum of sprite 35 to 312
  121.       updateStage()
  122.     else
  123.       set the castNum of sprite 35 to 311
  124.       updateStage()
  125.       if the movieTime of sprite 48 = the duration of sprite(48) then
  126.         if gFirstQT = 1 then
  127.           set the castNum of sprite 48 to 273
  128.           set the loc of sprite 48 to point(325, 244)
  129.           updateStage()
  130.           set the castNum of sprite 46 to 273
  131.           set the loc of sprite 46 to point(325, 244)
  132.           set the castNum of sprite 29 to 305
  133.           updateStage()
  134.           set RegionNameList to ["BB", "GC", "HC", "PP", "PW", "PL", "ST"]
  135.           set RegionIndex to getPos(RegionNameList, gRegionName)
  136.           set QTVRNameList to [["McDonald Observatory", "Fort Davis", "Scenic Drive", "Rio Grande River", "Hiking Trails"], ["Beaches", "Wind Surfing", "Deep Sea Fishing", "U.S.S. Lexington"], ["Town Lake", "Umlauf Garden", "Rock Climbing", "Golfing"], ["Horseback Riding", "Bike Trails", "Canyon View"], ["State Park", "View from Shore"], ["Derrick Tower", "Central View", "Another Angle", "Western              Town"], ["Mariachi", "RiverWalk", "River Ride"]]
  137.           set RegionQTVRNameList to ["Ft.Davis/ Big Bend", "Gulf Coast", "Austin", "Palo Duro Canyon", "Caddo Lake", "Six Flags Over Texas", "Riverwalk, San Antonio"]
  138.           set RegionQTVRNodes to [5, 4, 4, 3, 2, 4, 3]
  139.           set QTVRNames to getAt(QTVRNameList, RegionIndex)
  140.           set QTVRNodes to getAt(RegionQTVRNodes, RegionIndex)
  141.           set gQTVRLocation to getAt(RegionQTVRNameList, RegionIndex)
  142.           SetVRMessage(gQTVRLocation)
  143.           updateStage()
  144.           set the loc of sprite 14 to point(224, 134)
  145.           set QTVRText to EMPTY
  146.           repeat with i in QTVRNames
  147.             put i & RETURN after QTVRText
  148.           end repeat
  149.           set the text of member "PDA Location List" to QTVRText
  150.           set the text of member "instruct2" to "To select a Panorama, click the name of the scene in the location to the left.  To view, click and hold the mouse down while moving over the scene. If the cursor turns into a hand with a circle, it is over a " & QUOTE & " hot spot " & QUOTE & ". Click once on the " & QUOTE & " hot spot " & QUOTE & " to see a video."
  151.           set the castNum of sprite 46 to the number of member "instruct2"
  152.           set the loc of sprite 46 to point(265, 180)
  153.           set the loc of sprite 48 to point(-1290, -1240)
  154.           puppetSound(3, "grieb")
  155.           puppetTransition(5, 1, 10)
  156.           set QTVRStartList to ["ftda15.mov", "prta11.mov", "aust21.mov", "pdur07.mov", "cdlk30.mov", "sflg02.mov", "rwsa26.mov"]
  157.           if RegionIndex <> 0 then
  158.             set PanoFilename to the pathName & "QTVR" & theFileDel & getAt(QTVRStartList, RegionIndex)
  159.             set the text of cast "Pano Filename" to PanoFilename
  160.           end if
  161.           set gPDAVR to 1
  162.           set gPDAQT to 0
  163.           set gFirstQT to 0
  164.         else
  165.           if the type of member the castNum of sprite 48 = #digitalVideo then
  166.             set the movieRate of sprite 48 to 0
  167.           end if
  168.           updateStage()
  169.           set the castNum of sprite 48 to 273
  170.           set the loc of sprite 48 to point(325, 244)
  171.           set the castNum of sprite 46 to 273
  172.           set the loc of sprite 46 to point(325, 244)
  173.           updateStage()
  174.           set QTInterruptus to 0
  175.           repeat with i in [27, 28, 29, 31, 33]
  176.             if the clickOn = i then
  177.               set QTInterruptus to 1
  178.               exit repeat
  179.             end if
  180.           end repeat
  181.           if QTInterruptus = 0 then
  182.             set the loc of sprite 48 to point(-1290, -1240)
  183.             puppetSprite(22, 1)
  184.             puppetSprite(24, 1)
  185.             puppetSprite(33, 1)
  186.             puppetSprite(47, 1)
  187.             set the castNum of sprite 33 to 309
  188.             set the loc of sprite 22 to point(537, 140)
  189.             set the loc of sprite 24 to point(537, 367)
  190.             set the text of member "instruct2" to "This will display Location Specific Text"
  191.             set the castNum of sprite 46 to the number of member "instruct2"
  192.             set the loc of sprite 46 to point(-265, -220)
  193.             set the castNum of sprite 47 to 320
  194.             set the loc of sprite 47 to point(222, 133)
  195.             puppetTransition(5, 1, 10)
  196.             puppetSound(3, "grieb")
  197.             repeat while soundBusy(3)
  198.               updateStage()
  199.             end repeat
  200.           end if
  201.           set gPDAQT to 0
  202.           set gPDAText to 1
  203.           UpdateLocations()
  204.         end if
  205.       end if
  206.     end if
  207.     updateStage()
  208.   end if
  209.   if gPDAVR = 0 then
  210.     SetVRMessage(" ")
  211.     SetVRInfo(" ")
  212.     if gNotUpdated = 1 then
  213.       if not (gPDAHelp or gPDAPict or gPDAQT or gPDASearch) then
  214.         UpdateLocations()
  215.       end if
  216.       set gNotUpdated to 0
  217.     end if
  218.   end if
  219.   set the editableText of sprite 20 to gPDASearch
  220.   UpdateTime()
  221.   go(the frame)
  222. end
  223.